From: João Távora <joaotavora@gmail.com>
Date: Sat, 3 Feb 2024 14:27:27 +0000 (-0600)
Subject: ; Also consider shorthands in check-declare-scan (bug#67523)
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2693
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=9a51fbb69fc9dc4aa415308889ae667ee65660d7;p=emacs.git

; Also consider shorthands in check-declare-scan (bug#67523)

* lisp/emacs-lisp/check-declare.el (check-declare-scan): Also
consider shorthands here.
---

diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index b4a7b4b33e6..a6d1a330d90 100644
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -85,6 +85,9 @@ don't know how to recognize (e.g. some macros)."
   (let (alist)
     (with-temp-buffer
       (insert-file-contents file)
+      ;; Ensure shorthands available, as we will be `read'ing Elisp
+      ;; (bug#67523)
+      (let (enable-local-variables) (hack-local-variables))
       ;; FIXME we could theoretically be inside a string.
       (while (re-search-forward "^[ \t]*\\((declare-function\\)[ \t\n]" nil t)
         (let ((pos (match-beginning 1)))
@@ -147,6 +150,7 @@ is a string giving details of the error."
           (insert-file-contents fnfile)
           (unless cflag
             ;; If in Elisp, ensure syntax and shorthands available
+            ;; (bug#67523)
             (set-syntax-table emacs-lisp-mode-syntax-table)
             (let (enable-local-variables) (hack-local-variables)))
           ;; defsubst's don't _have_ to be known at compile time.